﻿Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Public Class Project

    Public Const Table_Project As String = "project"

    '定义全局数据库连接对象
    Private conn As sqlConnection

    '定义全局数据库连接适配器
    Private dsCommand_Project As SqlDataAdapter

    '定义查询命令
    Private GetProjectInfoCommand As SqlCommand

    '定义事务
    Private ts As SqlTransaction

    '构造函数
    Public Sub New(ByVal DbConnection As SqlConnection, ByRef trans As SqlTransaction)
        MyBase.New()
        conn = DbConnection

        '实例化适配器
        dsCommand_Project = New SqlDataAdapter()

        '打开数据库连接
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If

        '引用外部事务
        ts = trans

        '填充适配器
        GetProjectInfo("null")
    End Sub


    '获取项目基本信息
    Public Function GetProjectInfo(ByVal strSQL_Condition_Project As String) As DataSet


    End Function

    '更新项目基本信息
    Public Function UpdateProject(ByVal ProjectSet As DataSet)

    End Function
End Class
